home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / DUMBCONV.MOD < prev    next >
Text File  |  1989-01-18  |  1KB  |  52 lines
  1.                                         (* Chapter 4 - Program 5 *)
  2. MODULE DumbConv;
  3. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  4. VAR a, b, c : INTEGER;
  5. BEGIN
  6.    WriteString("Fahrenheit to Centigrade temperature table");
  7.    WriteLn;
  8.    WriteLn;
  9.    FOR a := -2 TO 12 DO
  10.       b := 10 * a;
  11.       c := 32 + b *9 DIV 5;
  12.       WriteString("   C =");
  13.       WriteInt(b,5);
  14.       WriteString("     F =");
  15.       WriteInt(c,5);
  16.       IF b = 0 THEN
  17.          WriteString("   Freezing point of water");
  18.       END;
  19.       IF b = 100 THEN
  20.          WriteString("   Boiling point of water");
  21.       END;
  22.       WriteLn;
  23.    END; (* of main loop *)
  24.  
  25. END DumbConv.
  26.  
  27.  
  28.  
  29.  
  30. (* Result of execution
  31.  
  32. Fahrenheit to Centigrade temperature table
  33.  
  34.    C =  -20     F =    -4
  35.    C =  -10     F =    14
  36.    C =    0     F =    32   Freezing point of water
  37.    C =   10     F =    50
  38.    C =   20     F =    68
  39.    C =   30     F =    86
  40.    C =   40     F =   104
  41.    C =   50     F =   122
  42.    C =   60     F =   140
  43.    C =   70     F =   158
  44.    C =   80     F =   176
  45.    C =   90     F =   194
  46.    C =  100     F =   212   Boiling point of water
  47.    C =  110     F =   230
  48.    C =  120     F =   248
  49.  
  50. *)
  51.  
  52.